00100		DIMENSION A(16),B(17),C(8),D(8)
00200		DATA C/18.0,21.5,12.0,10.0,9.0,9.0,9.5,9.5/
00300		B(1)=(2.0*3.14159265/16.0)
00400		DO 30 I=1,8
00500	30	D(I)=EXP(C(I)*ALOG(10.0)/20.0)
00600		DO 90 I=1,16
00700		A(I)=0
00800		DO 80 J=1,8
00900		E=J
01000		IF (J-8)70,50,50
01100	50	F= ((((I/2)*2)-I)*2)+1
01200		A(I)=A(I)+D(J)*F
01300		GO TO 80
01400	70	A(I)=A(I)+D(J)*SIN(E*B(I))
01500	80	CONTINUE
01600	90	B(I+1)=B(I)+B(1)
01700		PRINT 110,  (C(I),D(I), I=1,8)
01800		PRINT 120, (B(I),A(I),I=1,16)
01900	110	FORMAT(6H DB IS,E15.8,5X, 7HREO. IS,E15.8)
02000	120	FORMAT(9H ANGLE IS,E15.8,3X,14HTHE VOLTAGE IS,E15.8)
02100		END